home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed2.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  751b  |  29 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 20 PRINT"[147][156]    ** TPUG EDUCATIONAL DISK ED-2 **"
  3. 30 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 DIMA$(15)
  5. 50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  6. 60 INPUT"CHOOSE(1-15):";A$
  7. 70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
  8. 80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  9. 90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING......  "A$(A)
  10. 100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  11. 110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  12. 59999 :
  13. 60001 DATA "ALPHABETIZING"
  14. 60002 DATA "ALPHABETTER"
  15. 60003 DATA "ALPHASHIFT"
  16. 60004 DATA "ALPHABET QUIZ"
  17. 60005 DATA "ALPHA 1 A"
  18. 60006 DATA "ALPHA 2 A"
  19. 60007 DATA "ALPHA 3 A"
  20. 60008 DATA "SWAP-ANIMAL"
  21. 60009 DATA "SWAP-VEGETABLE"
  22. 60010 DATA "SWAP-MINERAL"
  23. 60011 DATA "WORD MACHINE"
  24. 60012 DATA "TEACHER INFO"
  25. 60013 DATA "**"
  26. 60014 DATA "**"
  27. 60015 DATA "**"
  28. 60016 DATA "**"
  29.